home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 18 / forthsup / split.fth < prev    next >
Encoding:
Text File  |  1986-09-18  |  607 b   |  25 lines
  1. \ Makes the bottom half of the screen scroll without affecting the top half.
  2. \
  3. \ split-screen        Scroll the bottom half of the screen
  4. \ whole-screen        Scroll the whole screen
  5.  
  6. only forth also hidden definitions
  7. : scroll-bottom  ( -- )
  8.    (#lines 2/ 0 at delete-line
  9.    (#lines 1- 0 at
  10.    #out off  1 #line +!
  11. ;
  12. : half-#lines   ( -- n ) (#lines 2/ ;
  13.  
  14. only forth hidden also forth definitions
  15.  
  16. : split-screen  ( -- )
  17.    ['] scroll-bottom is cr
  18.    ['] half-#lines   is #lines
  19. ;
  20. : whole-screen  ( -- )
  21.    ['] crlf          is cr
  22.    ['] (#lines       is #lines
  23. ;
  24. only forth also definitions
  25.